home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / cterm.lha / try1 < prev    next >
Text File  |  1993-08-13  |  468b  |  20 lines
  1.  
  2. # cterm example application
  3. # usage: perl try1
  4. # 'perl try1 LOG 1' will produce a cterm logfile LOG.
  5.  
  6. unshift(@INC,'.') ;
  7. do 'cterm.pl' || die "$0 can't include cterm.pl\n" ;
  8. &startCterm(@ARGV) ; 
  9. &initscr ; &nonl ; &cbreak ; &noecho ;
  10. $japh = "just another perl hacker" ;
  11. &mvaddstr(int($LINES/2),int(($COLS-length($japh))/2),$japh) ;
  12. &mvaddstr($LINES-1,0,'hit any key to continue ') ;
  13. &refresh ;
  14. &getchR ;
  15. &clear ;
  16. &move(0,0) ;
  17. &refresh() ;
  18. &endwin ;
  19. &finishCterm ;
  20.